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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN CORDANCE WITH THE TERMS OF SUCH LIC rt so ah | 


> 
M 
2 


® 
® 
* 
w 
* 
® 
® 
Y 0 * 

OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
e 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

* 

w 

* 

* 

® 

* 

® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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(RABRASASAAASAAAAAAARAASAAEALASSALESESE SEA RAR ERLE ASE RE ARSE REAR RSA AA AREAS ES SD 


“Fenti tees RMS 
Abstract: 


node to perform the put, udpate, and delete functions. 


This module communicates with the file access listener at the remote 
Environment: VAX/VMS, executive mode 
| 


COOSOOCCCOCOOOOCOSOSCOOCOOCOSCOOSOOCSOOOCOSOOOOOOOOOOOOOOOOOOoOO 


SOOCOSCOCSCOOOSOSOOOSOSSOSSOSOSSSOSCSOSOSOSOOSOSOSOOOOOOOOOOOOOoOO 
SOCOCOCOCOOSOCOCOSOCOSOSOSOCOCOOS OCC S SOC COOCOOOCOOOOO OOOO OOOOOOOOOCOoOO 


CGDOOOCOOCOCOSOOOOSOOOCOOSOOSOOSOSOOOSOOSOOSOSOOOSOOOOOOOOOOOOOOCOOOOOOOOOO 
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: Author: James A. Krycka, Creation Date: 09-DEC-1977 

> Modified By: 

; vO3-005 RASO315 Ron Schaefer 22-Jun-1984 

3 Eliminate tiny data psect. 

; VO3-004 JAkOI45 JA Krycka 12-APR-1984 | 
$) ; Track changes in DAP. message building algorithm. | 
00 ; V03-003 JAK0126 JA Krycka 08-SEP-1983 | 
00 ; Return relative record number in RABSL_BKT field on sequential 
4 : S$PUT operai 5s to a relative file (per RMS documentation) | 
00 : v03-002 Jaxg122 JA Krycka 22-AUG-1983 | 
00 3 n $PUT failure, aie that FAL has sent a Status message 
00 : con ending a Continue Transfer message to unlock FAL. 
00 3 Move NTSRESUME_FAL routine to NTODISCON module and perform 
00 : other miscellaneous cleanup edits. 

| 
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0 H 

$5 3g ; v03-001 KRM0092 arl Malik 18-Mar-1983 
$3 oY : Add support for STMLE and STMCR formats. 
0000 62 == 


b=" Udon sei ed EN cr crn eae ai ee a A, RR od a Th ge en MA ee ee I gM ME FRE one 


ASSUME DAP$Q_DCODE_FLG EQ 0 
ASSUME NWASQ"FLG EO 0 


Own Storage: 


The following bitmask represents the DAP terminator set for stream (STM) 
format files where each bit position corresponds to an ASCII character code 
for a single-character terminator. Note that the default terminator, CRLF, 
is not expressed in this mask. 
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68 64 -SBTTL DECLARATIONS 
8 65 | 
0 06 3 
900 67 ; Include Files: 
00 68 ; 
000 69 
000 70 $SBDBDEF ; Define BDB symbols 
$8 71 SDAPPLGDEF ; Define DAP prologue symbols 
00 if SDAPHDRDEF ; Define DAP message header 
0000 7 SDAPCNF DEF ; Define DAP Configuration message 
000 74 SDAPCTLDEF ; Define DAP Control message 
$80 75 SDAPDATDEF ; Define DAP Data message 
00 76 $F ABDEF : Define File Access Block symbols 
0000 77 SIFBDEF ; Define IFAB symbols 
0000 78 SIRBDEF 3; Define IRAB symbols 
0000 79 SNWADEF ; Define Network Work Area symbols 
0000 80 SRABDEF ; Define Record Access Block symbols 
0000 81 SRMSDEF 3; Define RMS completion codes 
0000 Hf 
0000 83 ; 
0000 84 ; Macros: 
00 85 ; 
00 86 ; None 
00 87 3 
00 88 ; Equated Symbols: 
00 89 ; 
00 90 
Q000000A 00 91 LF=10 ; Line feed 
00000008 00 38 VT=11 ; Vertical tab 
0000000C 00 93 FF=12 ; Form feed 
00000010 G0 94 DLE=16 ; Data Link error (Control-P) 
000011 00 95 DC1=17 ; Device control 1 (Control-Q) 
00000012 00 96 +t ; Device control 2 (Control-R) 
000013 OC 97 DC3=19 : Device control 3 (Control-S) 
00000014 00 98 DC4=20 3; Device control 4 (Control-T) 
Q0000001A 00 99 CTRLZ=26 3; Control-Z 
00000018 83 $9 ESC=27 ; Escape 
OOOO0A0D 00 f CRLF =*XOA0D ; ASCII codes for CR and LF 
00000004 00 03 LF=*X0A : ASCII code for LF 
000000CpDd 33 be CR=*x0D 3; ASCII code for CR 
00 06 
00 07 
00 08 
00 09 
00 10 
00 11 
00 \¢ 
00 1 
00 14 
00 15 
00 16 
$383 
$00 «119 
00 20 
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158 ol LONG 
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i NTSSTM_MASK: 
1 


4 


"SrSEp=1986 fe: 


DAP 
<<1aLF> + <1aFF> + <lavts * <13 
<1aDLE> + <1aDC1> + <lapC2> + < 


2 tr 
st 
C 
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r 
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-SBTTL NTSPUT = PERFORM NETWORK PUT FUNCTION 


NTSPUT - engages in a DAP dialogue with the remote FAL to put (store) the 
specified record of a sequential, relative, or indexed file. This 
routine supports both DAP file transfer and record transfer modes. 


Calling Sequence: 
BSBW NTSPUT | 
Input Parameters: | 
RB «RAB address | 


R9 IRAB address 
R10 IFAB address 


UP 
FO 
1 
37 
1 5 i : 
130 ; 
He 
1 : ; 
134; 
136 | 
137 : 
138 3 
139 ; 
140 ; 
1 
148 : R11 Impure Area address 
132 : Implicit Inputs: | 
147 : BDB buffer contents 
4 148; BDBSL_ADDR 
6 169; BOBSW_NUMB 
4 150: DAP$V_DAPCRC 
4 151; DAP$V~GEQ_V56 
4 139 : DAPSL-CRC_RSLT 
4 153; FBSL_NWA_PTR 
6 33632 $v_SQ0 
4 155: IRB$B_MODE 
04 156; NWASV_FTM_INIT 
0004 157 ; NWASV_ FIM mrecy 
Seb muAacaataust 
0004 160: NWAS$B~ORG 
0004 161; NWA$Q~BLD 
0004 162 : RABSB_KSZ 
0004 163; RABSB-RAC | 
0004 164 ; RABSL_ROP 
4 19? 3 RABSL_KBF 
Bebe +4 : Output Parameters: | 
0004 169 : RO Status code (RMS) | 
0004 170; R1i-R3 Destroyed 
4 V7) : AP Destroyed | 
Babe 178 : Implicit Outputs: | 
0004 175: BDB$B_FLGS 
0004 176; DAPS$L_CRC_RSLT 
Babe 177 ; IRBSL_ 105" and IRB$L_10S4 zeroed | 
004 178; NWASV_F peaeal cleared 
Soe 180 ate ma aaa | 
0004 18 : RABSW-RFA | 
0004 182 ; 


— 
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2004 ! ? : Completion Codes: 
004 185; Standard RMS completion codes 
44 1 § ; 
004 1 ; Side Effects: 
Babe 188 ; 
one 189 ; None 
0004 190 ; 
0004 191 << 
0004 135 
0004 193 NTS$PUT:: ; Entry point 
Beet 194 STSTPT NTPUT : 
OOFO 8F BB QOQOA 195 PUSHR #*M<R4,R5,R6,R7> 3; Save pogreters 
56 54 00 OQOOE 196 MOVL ; Copy BD 
57° 3C AA DO 0011 197 MOVL Ha Se NWA_PTR(RI0),R7 : Get-address of NWA (and DAP) 
FFE8" 30 0015 198 BSBW TSCHR_RAT ; Validate record access mode 
10 50 €9 0018 199 BLBC RO. 10$~ Branch on failur 
OF 67 «4. £0 0018 200 BBS #NWASV_FTM_RETRV,(R7), 208:$PUT after $GET not allowed in FIM 
O01F $o§ ASSUME RABSC_SEQ EQ 0 
OO1F 20 ASSUME RABSC_KEY EQ 1 
Baie She ASSUME RABSC “RFA EQ 2 
OO1F 206 $CASEB SELECTOR =RARSS_RACIRS)= ; Dispatch on access mode: 
OO1F 207 DISPL 5 
OO1F 208 BUT. SEQ- 3; Sequential recer¢ Basen 
OO1F 209 PUT_KEY=- 3 Access by key v 
OO1F 210 > ; _Access by record file address 
O146E 31 0028 211 BRW ERRRAC ; Branch aid 
0157 31 0028 si¢ 10$: BRW EXIT 3; Branch aid 
O14F 31 OO2E 213 20S: BRW ERRF TM ; Branch aid 
0031 214 
0031 215 ;+ : 
9 518 ; Sequential access has been requested. 
0031 218 ; Note: In record transfer mode a Control message must be sent for each record 
0031 $1 3 retrieved, whereas, in file transfer mode only an initial Control 
0031 20 ; message is required. 
0031 $$ :- 
0031 $8 
0031 2235 PUT_SEQ: : 
05 6A 2D #€0 0031 $$¢ #1FBSV_SQ0,(R10) ,10$ : Branch if in file transfer mode 
51 00 9A 0035 25 MOVZBL sparex — QAcc Ri ; Set RAC for DAP message 
0B si O08 $$ RRB T_ SEG_C 3; Join common code 
67 19 €5 OO3A 10$: BBCC WNURSY Fin INIT. (R7),- ;: Branch if no Control ee ye required 
25 003D 8 UT_SEND_D ; _and turn off single-shot 
003 9 S$SETBIT PNUKSV.. FTM_STORE,(R7) ; Set file transfer mode storage flag 
51 03 QA One 3 MOVZBL #DAPSK_SEQ_FILE, R1 ; Set RAC for DAP message 
0045 3 PUT_SEQ_COMMON: ; Common code for put operation 
50 04 0 0045 ; MOVL #DAPSK_CTL_MSG,RO ; Get message type value 
FFBS' 30 0048 4 RSBW NT$BUICD_H ; Construct message header 
85 04 90 0048 35 MOVB #DAPSK POT greite. (R5)+ ; Store CTLFUNC field 
85 09 90 O04E § MOVB #<<DAPSM 3; Store CTLMENU field 
051 <DAPSAL He : 
051 8 >, (R5)+ ; ; 
85 51 90 0051 9 MOVB RI. *(R5)+ ; Store RAC field 


- 
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054 40 
054 41 ;+ 
bee ts ; Common code to build rest of the Control message and send it to partner. 
054 244 ° | 
054 45 PUT_SEND_CTL_COMMON: ; Used for both put and update 
FFA9" 30 0054 $ 658w NTS$MAP_ROP ; Store ROP as an extensible field | 
rae Q 0057 4 BSBW NT$BUICD TAIL : Finish building message 
FFAS" 30 OO5A 48 BSBW NTSTRANSAIT ; Send Control message to FAL 
03 50 f° iF 49 BLBS RO,PUT_SEND_DAT ; Branch on success 
0122 1 006 50 BRW EX{T ; Branch aid 
006 51 
006 26 34 
944 27 ; Build and send DAP Data message to partner containing user record. | 
bogs 538 | 
0063 56 PUT_SEND_DAT: : 
04 6A 2D €0 0063 57 #1FBSV_SQ0,(R10),10$ ; Branch if in file transfer mode 
0067 58 $SETBIT #NWASV-LAST MSG, (R7) ; Declare this last message to block 
50 =608 0 0068 59 108: MOVL #DAPS$K_DAT_MASG,RO ; Get message type value 
FF8F* 30 O06E 360 BSBW NT$BUICD_HEAD ; Construct message header | 
54 O0OF4 C7 DO 0071 61 MOVL NWASQ_BLB+4(R7) ,R4 ; Get address of build message buffer 
85 94 0076 $6¢ CLRB (R5)+ :; Zero RECNUM field 
33. 33 0 0078 6 MOVL R5,R3 ; Save next byte pointer 
5 14 A6 C 0078 64 MOVZWL BDBSW_NUMB(R6) ,R2 ; Get record size 
+ 3S 3 3. oorr 65 SUBL3 oR? s ; Compute # DAP overhead bytes in msg 
> ee) 26 C1 0083 66 ADOL3 AB ; Compute projected size of DAP message | 
OOCA C7. 5 B1 0087 67 CMPW RS ,NWASW_DAPBUFSIZ(R7) ; Make sure message will fit in buffer 
38 1A 008C 508 BcTRU 40$ ; Branch if record is too big 
0120 C7 52 7D 008 69 MOVQ R2,NWASQ_SAVE_DESC(R7) ; Save descriptor of user record 
20 «BB 009 270 PUSHR #*M<R5> ; Save register 
63 1886 52 28 0095 271 MOVC3 R2,@BDBSL_ADDR(R6),(R3) ; Move record into DAP message | 
20 =OBA aye $6 POPR #*M<R5> ; Restore register 
009C¢ 274 ASSUME FABSC_UDF EQ 0 | 
009C 275 ASSUME FABSC_FIX EQ 1 
009¢ 376 ASSUME FABSC-VAR EQ é | 
009C 7 ASSUME FABSC_VFC EQ 
009C sis ASSUME FABSC_STM EQ 4 
009C 79 ASSUME FABSC_STMLF EQ 5 
435 580 ASSUME FABSC_STMCR EQ 6 
009C 28 SCASEB SELECTOR=NWASB_RFM(R7)- ; Dispatch on record format: 
b99¢ 38 BASE=#F ABSC_STA- : 
009C 4 DISPL=<- : 
009C 285 20$- ; «STM 
009C 86 60$- 3; 6STMLF 
009C it 70$- 3; STMCR 
09C 8 > ; UDF, FIX, VAR, VFC . 
50 11 mi 8 BRB 100$ ; Bypass stream specific processing 
OAA 91 ; 
aDAA 92 ; The remote file is in stream format--add a CRLF to the user record if it 
QAA 93 ; does not end in a stream form effector character. 
Oaa 598 | 
14 A6 BS OOAA 96 20$: TSTW BOBSW_NUMB(R6) ; Branch if this is a null record 
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/DELETE RECORD Ig-SEP-1984 0: 
ETWORK PUT FUNCTION -SEP=1984 16: 
BEQL 30% 
MOVZBL =1(R ), RO 
CMPB RO # 
BGTRU 
BBS RO,W°NTSSTM_MASK,60$ 
30$:  ADDL2 #2.R5 
CMPW «RS NWASW_DAPBUF S1Z(R7) 
40S: BLEQU § 
50$:  MOVW #CRLE (RS) 
ADDL2 #2,NWASQ_SAVE_DESC(R7) 
BRB 106$ 


record if it does not end in a proper 


5:11 VAX/VMS Macro v04-00 p 
30> ERMC ee Tattoo nag et — 


; Get record terminator character 

; Branch if out-of-range for a stream 
; terminator character 

; Branch on stream terminato 

: Increase record Length tad CRL 

; Make sure message will fit + buffer 
: Branch if record will fit 

; Branch (record is too big) 

; Add CRLF to terminate record 

; Update record length in descriptor 
; Branch to common code 


terminator. 


: The remote file is in STMLF or STMCR format--add a CR or LF to the user 


60$: MOVZBL #LF,RO 
BRB 0$ 


70$:  MOVZBL #CR,RO 
80$:  ISTW  BDBSW_NUMB(R6) 
BEQL 
CMPB Ss RO, -1(R3) 
BEaL =s-:« 100 
90$: INCL R5 
CMPW =—sR5 ,NWASW_DAPBUF S1Z(R7) 
BGTRU  ERRRS 
MOVB = RO, ¢ 


,(R3)+ 
INCL  NWA$Q_SAVE_DESC(R7) 


3; End of record conversion. 


100$: MOVL 
BS 


Bw OF ERO ILD TAIL 
BBC #DAPSV_DAPCRC,- 
DAP$Q_SYSCAP(R7) ,110$ 
MOVQ NWASQ™SAVE DESC(R7),R2 
“NTSCRC_TABLE,- 
DAPSL_CRU_RSLT(R7).- 
, (R3) 


M4 ‘DAPSL_CRC_RSLT(R7) 
110$: BSBu NYSTRA NSAIT 


Setup terminator to add 


Setup terminator to add 

Is it a ~ foaere 

Branch if y 

Is the areser terminator present? 
Branch if yes 

Increase record length 

Will message fit in buffer? 

Branch if record is too big 

Add the terminator : 
Update wore Length in descriptor 


: Save next byte pointer 
: Finish building message 
: Branch if pecccer or gs an support 
; file Love CRC check 
: Put descri ptor of record in <R2,R3> 
: Compute CRC (destroying RO-R3) 
: using result of previous CRC 
: calculation as initial CRC value 
: Store CRC resultant value 
Send record 
nch on failure 


KSTS Bra 
BICB2 PeloBDBS _DRT>,BDBSB_ rickhet ; Say not dirty anymore 


+ 
; Receive DAP Status aessege from partner if we are in record transfer mode 


3: and return record file address of the 


PUT_RECV_STS: 


BBs #1FBSV_SQ0, (R10) EXIT 
#DAP$V~GEQ.V56,(R7),E 
p teeee REE TBIT #DAPSK~STS"MSG.DAPSL_ 


XIT; 
MSG_MASK(R7); I 


first block accessed. 


in file transfer mode 
partner uses DAP before V5.6 
m 


h 
; Branch 
7 plied for receive 
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fepe" 3 128 2 BSBW NTSRECEIVE ; Obtain status of _Put/update request 
31 50 128 5 BLBC RO,CHKSTS 3; Branch on failur 
FECF* 0 1 : 36 BSBW  NTSRET_RFA : Return RFA value to user RAB 
FECC’ 1 5 BSBwW NTSRET_RRN ; Return relative record number in BKT 
134 38 ; field (if appropriate) 
4F 611) «(0134 5 BRB EXIT 3; Branch aid 
136 60 
136 61 ;+ 
4 6 $6 3; Access by relative record number or by key value has been requested. 
3 ° o7 3; This operation must be performed in DAP record transfer mode. 
1 ° 65 
1 66 PUT_KEY: ; 
46 6A 2D €0 0136 6 BBS #1FBSV_ $00, (R10), ,ERRFT™M ; Disallow file transfer mode 
50 04 B° O13A 68 MOVL #DAPSK~CTL_MSG,RO ; Get message type value 
FECO* 30 0130 69 BSBW NT$BUICD HEAD ; Construct message header 
85 04 90 b128 70 MOVB #DAPSK POT WRITE,(R5)+ ; Store CTLFUNC field 
20 00C6 C7) 91 O14 71 CMPB NUASB ORG(R7) ,ANWASK_IDX; Branch if IDX organization 
OC 13 0148 ie BEQL 10$ : 
85 0B 90 O14A 7 MOVB #<<DAPSM_RAC>!- ; Store CTLMENU field 
014D $e <DAPSM_KEY>!- ; (must send relative record number 
Ree 2 a, on ROP>!- 3; in key field) 
85 01 90 0140 355 MOVB #OAPSK_KEY_ACC, (R5)+ 3; Store RAC field 
FEAD' 30 0150 378 BSBW NTSOBTAIN_REY ; Store key value 
FEFE 31 0153 Ths BRW PUT_SEND_CTL_COMMON ; Join common code 
85 09 90 0156 80 10$: MOVB #<<BAPSM_RACS !- ; Store CTLMENU field 
b128 $55 the ROP>!- 3: (key string is implicit in data) 
85 01 90 0159 383 MOVB #DAPSK_KEY_ACC,(R5)+ ; Store RAC field 
FEFS 31 O15C 384 BRW PUT_SEND_CTL_COMMON ; Join common code 
O1SF 385 
O1SF 386 ;+ 
015F 87 ; Common exit code for $PUT and $UPDATE. 
Slat ge 
22 67. 08 £0 O15F $390 CHKSTS: BBS #NWASV years (R7),EXIT ; Branch if this is an update operation 
30 A?) so91s—s«0163 33) CMPB DAP$B_TYP 7 ; Branch if failure was not the result 
09 0166 35 #DAPSR_ STS as6" : of Status message returned by FAL 
1¢ 4612 0167 9 BNEQ XIT 3 
01 BB 0169 94 PUSHR #*M<RO> 3; Save prieery error code 
FE92" 30 0168 95 BSBW NTSRESUME _F AL ; Tell FAL what to do on put error via 
016E 96 ; _interrupt Continue Transfer message 
01 ®BA 818 97 POPR #*M<RO> ; Restore primary error code 
2 WW 9 98 BRB EXIT 3 
017 99 ERRRSZ: RMSERR RSZ : Invalid record size 
oc 11 O17 400 RB EXIT ; ; 
179 401 ERRRAC: RMSERR RAC : Invalid record access value 
05 11 O17 $0e RB EXIT $ 
1 403 ERRFTM: RMSERR FIM ; File transfer mode err 
1 404 EXIT:  $CLRBIT #NWASV_UPDATE,(R7) : Initialize flag for next time thru 
0c Ad) «=6©7C «(0189S 405 CLRQ IRB$L_TOS(R9) ; Zero 1/0 status block 
18C 106 ; spert inent status vate is already 
18C «64 : in RO a STV 
OOFO 8F BA 4 $38 POPR #°M<R4,RS,R6,R7> : Restore. regi sters 
5 0190 40 RSB ; Exit with RMS cede in RO 
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RECORD =SEP-1984 00:05:11 YAX/VMS Macro V04-00 P 
ORK UPDATE FUNCT "er Epa 1984 98: 1:02 CRMS.SRCINTOPUT.MAR; 1 is 


-SBTTL NTSUPDATE = PERFORM NETWORK UPDATE FUNCTION 


zm 
z=™ 
zm 


NT 
v04 


a4 
NTSUPDATE - onge ges in a DAP dialogue with the remote FAL to update (modify) 
the specified record of a sequential, relative, or indexed file. 


Calling Sequence: 
BSBW NTSUPDATE 
Input Parameters: 


RG BOB address 
R8 RAB address 
R9 IRAB address 
R10 IFAB address 
R11 Impure Area address 


Implicit Inputs: 
BD0B ag the contents 


NWASB_RFM 
NWA$W_DAPBUF SIZ 
NWA$Q_BLD 
RABS$B_RAC 
RAB$L_ROP 


Pat at at at at at a UUM UUUUUeUeUeUmUAHNUMnHneEwHe> 
WRC DONAUEWN—OOONAUESWNOODNOULWN WO 


FHF FAWN AAWIWIWIWNIDRPONPONININIPONINIDY 2 2 PO OO ee 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
2 


Ol et a et et et a DD ee a a kd ed a a od od oD 
WOOO ODOODOVOVOODO OOO OOOO OOOODOODOODOODOODOODODODOVOOVOOOVOOOVOVOOOVOOOCOWOWowonND 


444 

t22 Output Parameters: 

409 RO Status code (RMS) 

448 R1-R7 Destroyed 

$33 AP Destroyed 

‘31 Implicit Outputs: 

138 BDBS$B_F Les 

454 DAPS$L_C RSLT 

455 IRBSL_ 10s “and IRB$L_I0S4 zeroed 
$28 RABSW_RFA 

$38 Completion Codes: 

289 Standard RMS completion codes 
186 Side Effects: 

464 None 

465 

466 :-- 

46 


~~ 
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oo NETWORK PUT/UPDATE/DELETE RECORD v0. 


a i Sat 9 90:09:31 AX/VMS Macro V04-00 Page 1 
NTSUPDATE = PERFORM NETWORK UPDATE FUNCT SEP=1984 16:21 ( 


| 

| 

:02 CRMS.SRCINTOPUT.MAR; 1 | 
Entry point | 
a 

| 


$68 sihaoay || 
4 TSTPT NTUPDATE 
PUSHR #*M<RSG RS 


13 : 
191 $ 
OOF O 1 ee 197 296 R6,R7> ; Save registers 
E1 6A DoOC«€E 198 «471 BBS #1FBSV_SQ0, (R10) ,ERRFTM ; Network update function not allowed 
19F to¢ :; _if file transfer mode selected 
56. 54 D0 QO19F 47 MOVL R4,R6 ; Copy BDB address 
57 3C AA DO O1A2 «47% MOVL _ IFBSL_NWA PTR(RIQ) .R7 ; Get address of NWA (and DAP) 
1A6 iS SSETBIT #NWAST_UPBATE, (R7) ; Denote this is an update operation 
1AA 139 3+ 
1AA $78 ; Build and send DAP Control message to partner. 
1AA 479 5 
1AA 480 
1AA = 481: UPD_SEND_CTL: ; 
QIAA 4 § SSETBIT #NWASV_LAST_MSG, (R7) ; Declare this last message to block 
04 be Bias 4 MOVL #DAPSK~CTL_MASG,RO ; Get message type value 
ree 0 0181 484 BSBW NTSBUILD_HEAD ; Construct message header 
85 0 90 0184 485 MOVB #DAPSK UPDATE. (R5)+ ; Store CTLFUNC field 
85 09 90 0187 $38 MOVB #<<DAPSM_RAC>!- ; Store CTLMENU field 
O1BA 487 <DAPSM_ROP>! - ; 
O1BA 488 0>, (R5)+ 3 
85 00 90 OIBA 489 MOVB #DAPSK_SEQ_ACC,(R5)+ ; Store RAC field--assume SEQ access 
01 16 AS 91 O1BD 490 CMPB RABSB_RAC(RS) ,ARABSC_KEY; Keyed access specified? 
04 ie 01C1 491 BNEQ 10$ ; Branch if not 
FF AS QO1 90 01C3 o36 MOVB #DAPSK_KEY_ACC,-1(R5)  ; Change RAC field 
FE8A 31 O1C7? 493 108: BRW PUT_SEND_CTL_COMMON ; Join common code 
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-SBTTL NTSDELETE = PERFORM NETWORK DELETE FUNCTION 


zm 
z=™ 
zm 
mer 


NT 
v04 


-~ 


++ 
NTSDELETE - engages in a DAP dialogue with the remote FAL to delete the 
specified record of a relative or indexed file. 
; Calling Sequence: 
BSBW NTSDELETE 
; Input Parameters: 
R8 RAB address 
R9 IRAB address 
R10 IFAB address 
R11 Impure Area address 
; Implicit Inputs: 
DAP$V_GEQ_V56 
IFBSL_NWA_PTR 
IFB$V_SQ0 
NWASB_ORG 
Output Parameters: 
RO Status code (RMS) 
R1i-R3 Destroyed 
AP Destroyed 
; Implicit Outputs: 
None 
Completion Codes: 
Standard RMS completion codes 
Side Effects: 
None 
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NTSDELETE:: 

STSTPT NTDELETE ; 

PUSHR #*M<R4,R5,R6,R7> ; Save registers 

BBS #IFBS$V_SQ0, (R10) .ERRFTM2: Network delete function not allowed 
; if file transfer mode selected 

R4,R6 ; Copy BDB address 

MOVL  IFBSL_NWA_PTR(R10),R7 _; Get address of NWA (and DAP) 

CMPB NWASB ORGTR7) , ANWASK_SEQ: Screen out SEQ file organization 

BEQL ERRIOP ; Branch on error 


3; Entry point 


OOFO 8F 
38 6A = 2D 


56_ 34 
57 3C AA 
00 00C6 4 
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+ 
; Build and send DAP Control message to partner. 


=O OD NAME WIN 0 OD NAME WIN | SO OD NA UE WW OO ODNOAU EWI OOO NAUE WN" ODOOnNOuw wo 


DID BEBE EEE EAI NIAAA RIP NIPINININININ 2 OO OS SM OOOOODOOOOCWOWOOOO mv 
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NETWORK PUT/ ATE/DELETE RECORD 19736-1388 90: 5:11 AX/VMS Macro V04-00 Page 13 
NTISDELETE - FORM NETWORK DELETE FUNCT -SEP-1984 16:21:02 (CRMS.SRCINTOPUT.MAR;1 (5) | 
DEL_SEND_C $ 
ss Té11 #NWASV =bAST MSG, (R7) ; Declare this Last message to block 
50 04 APSK~CTL_ASG,RO : Get message type value 
FEIO" esau NTSBU ICD HEAD ; Construct message header 
5 8 MOVB #DAPSK_DELETE,(R5)+ ; Store CTLFUNC field 
5 01 C9 MOVB  #DAP$M~RAC,(R5)+ : Store ETLMENU field 
5 +4 MOVB #DAPSK-SEQ ACC, (R5)+ 3; Store RAC eld 
FEQ4' BSBW NT$BUICD_TAIL 3 Finish buf Lding message 
FEO1* 30 BSBW NTSTRANSAIT : Send Control message to FAL 
07 50 «EY BLBC RO,EXIT 3; Branch on failure 


3% 
; Receive DAP Status message from partner. 


DEL_RECV_STS: 


#DAPS$V 
; teeee SSETBIT #DAPSK™ 
BSBW = NTSRECE 


03 67 24 «€1 


-§ (R7), EXIT}; ;Branch if partner uses DAP before V5.6 
FDOF7* 30 


EQ_v56, 
TS_MSG, DAPS$L _MSG =MASK(R?) ; Implied for receive 
IvE~ 3; Obtain Status of delete request 


+ 
Exit code for S$DELETE. 


EXIT2: POPR oon rie R6 R7> ; Restore registers 
BRW NTSEXR Exit with RMS code in RO 
ERRFTM2:RMSERR ih File transfer mode error 


OOFO 8F A 
FDFO' 
E , 
ERRIOP: RMSERR IOP Illegal I/0 operation 
BRB EX! 

| 
| 
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QV PULV IV LV IV IV SUSPUSPUIVSUSVSVSUSISISTSI ISIS ISIS = oO 


OOCCCCOCOCSOOOCOC COCO OO OOOO OOOOOOOOOoOO 
PPIPIPIPNINPININPYNPYNINIPYNIPONPINPYNINYININDY 2 2 STK 
8 8 = 3 BQO DOO 099 OOOO 18 8 $F $F “F8 “FUFTIFTUFTIFTIETY 
0909090008 SIN NINN NSN NSNIPA AA AAAI) emo 
FW" 9 ODNOU EWN OC ODNAUES WN" OOOnOuefeurm DO 


«END ; End of module 
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NTOPUT NETWORK PUT/UPDATE/DELETE RECORD Ig-SEB-1986 90:05:41 YAX/Vas Macro v04-00 Page 15 | 
Symbol table “SEP=1984 16:21:02 CRMS.SRCINTOPUT.MAR; 1 (5) | 
NTSRET_RFA aeeeeeee =X 01 NWAST_ITM_ STRING 900 2c 
NTSRET_RRN aeeeeere =X 01 NWAST_NCBB 0 0 g 
NTSSTM-MASK 00000000 RG 1 NWA$ST_NODEBUF 9 16 
NTSTRANSMIT eereeeee =X 1 NWAST_RCVBUF $8140 
NTSUPDATE 90000191 RG 01 NWAST_SCAN 0 $199 
NWASB_ALLKABCNT 8 8 11 NWAST_TEMP 00001 | 
NWASB_DAP_RAC 000000C NWAST_XLTBUF 1 00002AC 
NWASB_FILESYS BBO 80S NWAST_XLTBUF2 0000 a 
NWASB_KEYXABCNT 000011D NWAST-XMTBUF 9090 C 
NWASB_NETSTRSIZ 000016F ASV_FTM_INIT = 00000019 
NWASB_NODBUF S1Z 00000168 NWASV_FTM_RETRV = QOOOO0IA 
ASB_ORG Ht NWASV_FTM- STORE = 30008018 
NWASB~OSTYPE 00000C4 NWASV"LAST_MSG = 0000000 | 
NWASB_RF 00000C7 NWASV_UPDATE = 00000008 
NWASB_RMS_RAC 000000C8 NWASW_BUILD 000000D2 
NWASC_BLN 00000800 A$SW_DAPBUF SIZ QOOOO0CA 
NWASK_BLN 00000800 NWASW_DIR_OFF 000000CC 
NWASK_ IDX = 00000020 NWASW_DISPLAY 00000000 
NWASK_SEQ = 00000000 NWASW_FIL_OFF QOOOO0CE 
NWASL_ALLXABADR 00000100 NWASW_JNLRABJOP 0000011E 
NWASL_DATXABADR 00000104 PIOSA- TRACE aeeeeere =X 01 
NWASL_DEV ss 08 PUT_KEY 00000136 R 01 
NWASL _FHCXABADR 0000108 PUT_RECV_STS 00000120 R 01 
NWASL_KEYXABADR 0000010C PUT_SEND_CTL_COMMON 00000054 R 01 
NWASL_MSG_MA 000000D4 PUT_SEND_DAT 00000063 R 01 
NWASL_PRORABADR 00000110 PUT_SEQ 00000031 R 01 
NWASL_RDTXABADR 00000114 PUT_SEQ_COMMON 00000045 R 01 
NWASL_SAVE_FLGS 00000128 RABSB_RAC = Q0000001E | 
NWASL_SUMXABADR 00000118 RABSC_KEY = 00000001 
NWASL_ THREAD QOO000F C RABSC_RFA = 00000002 
NWASL_XLTATTR 00000238 RABSC_SEQ = 00000000 
NWASL XL TBUFFLG 9000022¢ MS$_FIM = 000187C4 | 
NWASL _XLTCNT 00000228 RMS$_IOP = 00018574 
NWASL XL TMAX INDX 00000234 RMS$~RAC = 00018644 
NWASL_XLTSIZ 00000230 RMS$_RSZ = 000186A4 
NWASQ_ACS 60000244 TPTSC_NTDELETE aeeeeeee =X (01 
NWASQ_B1GBUF 00000170 TPTSL_NTPUT eeeeneee =X 01 
NWA$Q_BLD 000000F0 TPTSL-NTUPDATE aeeeeeee =X 01 
NWASQ_FL 00000000 UPD_SEND_CTL QOOO0TAA R 01 
NWASQ_INODE 0000025C vT = 00000008 
NWA$Q_10SB 00C000D8 
A$Q—LNODE 90000160 | 
NWASQ_LOGNAME 0000023¢ 
NWASQ_NCB tte 
NWASQ_RCV 00 0 
NWA$Q_SAVE_DESC se 8 0 
NWASQ_XLTBOF1 0000024C 
NWA$Q_ XL TBUF 2 i 0254 
~XMT 0 6 E8 | 
NWA$T—ACSBUF 900 6¢ | 
NWAS$T_AUXBUF 0 3 | 
_DAP 00000000 
NWA$T_ INODEBUF 00004AC 
NWAST_ITM_ATTIR 0 
NWAST_ITM_END 4 
NWAST_ITM~L 8 8 | 
NWAS$T— | TM~MAX INDX 0 1 


NTOPUT 
Psect synopsis 


¢escmace eamenreceecon + 


Phase Page faults CPU Time Elapsed Time 


Initialization | 37 00:00:00.10 §:00:00.94 
Command processing 140 00:00:00.54 8 O08 -40 
Pass 1 360 00:00:14.10 00:00:38.23 
Symbol table sort 0 00:00:01.88 00:00:03.69 
Pass 2 112 00:00:02.74 00:00:08.55 
Symbol table output 25 00:00:00.17 00:00:00.54 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 678 00:00:19.55 00:00:55.44 


The working set Limit was 1650 pages. : 
75704 bytes (148 pages) of virtual memory were used to buffer the intermediate cod 


84 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
29 pages of virtual memory were used to define 28 macros. 


ee 


: Macro Library statistics H 


Macro Library name Macros defined 
-$255$DUA28: (RMS .OBJJRMS.MLB; 1 20 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 24 


1582 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NTOPUT/OBJ=OBJ$:NTOPUT MSRC$:NTOPUT/UPDATE=(ENH$:NTOPUT) +LIB$:RMS/LIB 


ci 
NETWORK PUT/UPDATE/DELETE RECORD 19 3E- 1388 90:09 31] y 
SEP=1984 16:21:02 


! Psect synogsis ! 

boeontee eee amet eee ay 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < -») 00 ¢ QO.) NOPIC USR CON ABS LCL 
NF SNE TWORK SOOO E AS ¢ $62.) O91 ¢ 1.) PIC USR CON REL GBL 
SABSS 00000800 ( 2048.) 02 ( 2.) NOPIC USR CON ABS LCL 


NOSHR NOEXE NO 
NOSHR EXE 
NOSHR 


e. 
There were 70 pages of symbol table space allocated to hold 1371 non-local and 24 local symbols. 


AX/VMS Macro V04-00 
RMS.SRCINTOPUT.MAR; 1 


RD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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